Public Class FormProgressLoad

    Private Sub FormProgressBar_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.ForeColor = Color.Gray
        Label2.ForeColor = Color.Gray
        ProgressBar1.Hide()
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(3)
        If ProgressBar1.Value = 100 Then
            Me.Close()

        End If

        Label1.Text = ProgressBar1.Value & (" %")
    End Sub
End Class